home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ Control Panel Hide 7.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-12-25  |  3.2 KB  |  110 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #2"
  6. "VERSION"="2.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "Colorific" applet"
  9. "TEXT 2"="Display "3Deep" applet"
  10. "TEXT 3"="Display "Toshiba HW Config" applet"
  11. "TEXT 4"="Display "Toshiba Power Saver" applet"
  12. "TEXT 5"="Display "Toshiba Services" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "DESCRIPTION 2"="Colorific and 3Deep are video card utilities that help you adjust brightness, gamma, etc.  They come with many video cards."
  15. "DESCRIPTION 3"="The Toshiba items come with any Toshiba computer."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20. "COMMENT 2"="Special thanks to CptSiskoX (CptSiskoX@flashmail.com) for his help."
  21. "COMMENT 3"="Thanks also to Kathy for her help with the Toshiba items. See also: MS KB Q207750."
  22.  
  23.  
  24. '******************************************************************
  25. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  26. '******************************************************************
  27. sVals=Array("ColorificPanel.cpl","3Deep.cpl","HWSetup.cpl","PWRSAVE.cpl","Toshcfg.cpl") 
  28. '******************************************************************
  29. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  30. '******************************************************************
  31. sPath="HKCU\Control Panel\Don't Load\"
  32. sFile="CONTROL.INI"
  33. sFileSec="Don't Load"
  34.  
  35.  
  36. SUB Plugin_Initialize
  37.  for i=0 to UBound(sVals)
  38.      Call ReadIt(i+1,sVals(i)) 
  39.  next 
  40. END SUB
  41.  
  42. Sub ReadIt(ITM,VAL)
  43.   If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  44.      'old (win32 1/2) INI style...
  45.  
  46.      s=IniReadValue(sFile,sFileSec,VAL)
  47.      if len(s)>0 then
  48.         Call SetUIElement(ITM,false)
  49.      else
  50.         Call SetUIElement(ITM,true)
  51.      end if
  52.  
  53.   else
  54.  
  55.      s=RegReadValue(sPath & VAL)
  56.      if IsEmpty(s)=true then
  57.         Call SetUIElement(ITM,true)
  58.      else
  59.         Call SetUIElement(ITM,false)
  60.      end if
  61.   end if
  62.      
  63. End Sub
  64.  
  65. 'Called when the Plugin should validate the Data the user has entered
  66. SUB Plugin_CheckData(ElementIndex)
  67. END SUB
  68.  
  69. 'Called when the Plugin should apply the changes
  70. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  71.  for i=0 to UBound(sVals)
  72.      Call WriteIt(i+1,sVals(i)) 
  73.  next 
  74.  
  75.  Call IndicateSettingChange()
  76. END SUB
  77.  
  78. Sub WriteIt(ITM,VAL)
  79.  b=GetUIElement(ITM)
  80.  if b=true then
  81.     'Display it
  82.  
  83.     If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  84.        'win32 1/2
  85.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  86.     else
  87.        s=RegReadValue(sPath & VAL)
  88.        if IsEmpty(s)=false then
  89.           Call RegDeleteValue(sPath & VAL)
  90.        end if
  91.     end if
  92.  
  93.  else
  94.    'Hide it
  95.    
  96.    If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  97.       'win32 1/2
  98.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  99.    else
  100.       Call RegWriteValue(sPath & VAL,"1",1) 
  101.    end if
  102.  
  103.  end if   
  104. End Sub
  105.  
  106.  
  107. 'Called when the Plugin is about to be removed from memory
  108. SUB Plugin_Terminate
  109. END SUB
  110.